Function miSuma(ByVal a As Double, ByVal b As Double, _
Optional visualizar As Boolean) As Double
    miSuma = a + b
    If Not (visualizar) Then
        Exit Function
    End If
    Debug.Print miSuma
End Function
